home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11a.d64
/
programm nr. 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
531b
|
27 lines
100 REM *** PROGRAMM NR.3 ***
110 :
120 IFZ=0THENZ=1:LOAD"GRAFIK MODUL",8,1
130 CLS=938:PLOT=820
140 :
150 X0=160:Y0=100 :REM MITTELPUNKT
160 XR=90 :YR=80 :REM X & Y-RADIUS
170 W =.5 :REM DREHWINKEL
180 :
190 POKE53265,59:POKE53272,24:PRINT"[147]"
200 SYS CLS
210 :
220 T=SIN(W*(null)/180):S=SQR(1-T*T):X=0:Y=1
230 FORA=0TO90STEPW
240 SYS PLOT,X0+X*XR,Y0+Y*YR
250 SYS PLOT,X0+X*XR,Y0-Y*YR
260 SYS PLOT,X0-X*XR,Y0+Y*YR
270 SYS PLOT,X0-X*XR,Y0-Y*YR
280 X1=S*X+T*Y:Y1=S*Y-T*X:Y=Y1:X=X1
290 NEXTA
300 :
310 POKE198,0:WAIT198,1:GETA$
320 :
330 POKE53265,27:POKE53272,21
340 END
350 :